home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / BlitzList / BlitzListFiles / manyshap.bb2 < prev    next >
Encoding:
Text File  |  1998-05-04  |  602 b   |  53 lines
  1.  
  2. ;
  3.  
  4. Gosub InitScreen
  5. Gosub InitShapes
  6.  
  7. BitMapOutput 0
  8. Print "Press Left Mouse Button to start"
  9.  
  10.  
  11. Repeat:VWait:Until (Joyb(0) AND 1)=1
  12.  
  13. For loop=0 To 30
  14.   VWait
  15.   Blit 0,StartX+(10*EndX),100
  16.   EndX+1
  17. Next
  18.  
  19. For loop=0 To 100
  20.   VWait
  21.   ClipBlitMode EraseMode
  22.   ClipBlit 1,StartX,100
  23.  
  24.  
  25.   ClipBlitMode CookieMode
  26.   ClipBlit 0,StartX+(EndX*10),100
  27.  
  28.   StartX+10
  29.  
  30. Next
  31.  
  32. End
  33.  
  34. .InitScreen
  35. BitMap 0,1280,256,6
  36. Screen 0,0,0,1280,256,6,$8000,"Test Screen",0,0,0
  37. Return
  38.  
  39. .InitShapes
  40. Circlef 100,100,10,1
  41. GetaShape 0,90,90,20,20
  42.  
  43. Circlef 110,100,10,0
  44. GetaShape 1,90,90,20,20
  45.  
  46. Cls
  47.  
  48. Blit 0,10,10
  49. Blit 1,10,200
  50.  
  51. Return
  52.  
  53.